home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #3
/
utv1n3s2.d64
/
magazine indexer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
11KB
|
450 lines
5 if a=0 then gosub 12000
6 if a=0 then a=1:ld$="lptr rtn":goto 12400
10 print"[145]"
30 nc=0:n=0:na=6:dimar$(na)
40 dim af$(50),a$(na,400)
50 sp$="":fori=1to20:sp$=sp$+" ":next
60 cl$="":fori=1to15:cl$=cl$+"[157]":next
80 fori=1tona:readar$(i):next
90 data "[205]agazine: "," [193]rticle: "," [193]uthor: "," [201]ssue: "," [208]age: "
100 data " [201]ndex: "
105 fori=49152to49322:reada:pokei,a:next
115 forii=49362to49398:readaa:pokeii,aa:next:rem**install reader
120 print chr$(14):poke646,1
125 gosub 2750
130 print"[147][201]ndex [205]enu: "
140 printtab(10)"[1] [204]oad [201]ndex [198]ile
150 [153][163]10)"[2] (NULL)ave right$ndex ascile
160 printtab(10)"[3] [193]dd [201]ndex [195]atagory
170 [153][163]10)"[4] lenhange right$ndex (NULL)ames
180 printtab(10)"[5] [196]isplay [201]ndex [206]ames
190 [153][163]10)"[6] (NULL)rint right$ndex (NULL)ames
200 printtab(10)"[7] [199]o to [205]ain [205]enu
205 [153][163]10)"[8] (NULL)eturn to (NULL)p(NULL)ime"
207 [153][163]10)"[9] right$nstructions"
210 [153]"lenhoice: ";
220 mx[178]1:[141] 12500
230 k[178][197](te$):[139] k[179]1 [176] k[177]9 [167] 130
236 [153]""
260 [145] k [141] 290,400,530,640,780,880,980,12100,10000
270 [137]130
280 :
290 [153]"load(NULL)oad right$ndex ascile: "
300 [141]2790:[139]f1[167][142]
310 [159]15,8,15,"i0"
320 [159]2,8,2,"0:."[170]f$[170]",s,r"
330 [141]2870:[139]f[167][142]
340 [132]2,nc
350 [129]i[178]1[164]nc
360 [132]2,af$(i)
370 [130]
380 [160]2:[160]15:[141]2750:[142]
390 :
400 [153]"load(NULL)ave right$ndex ascile: "
410 [139] nc[178]0 [167] [141] 12200:[142]
420 [141]2790:[139]f1[167][142]
430 [159]15,8,15,"i0"
440 [152]15,"s0:."[170]f$
450 [159]2,8,2,"0:."[170]f$[170]",s,w"
460 [141]2870:[139]f[167][142]
470 [152]2,nc
480 [129]i[178]1[164]nc
490 [152]2,af$(i)
500 [130]
510 [160]2:[160]15:[141]2750:[142]
520 :
530 nc[178]nc[170]1
540 [153]"loadatndd right$ndex lenategory: "
550 [153]" right$ndex #: "nc
560 [153]"lenategory (NULL)ame: <_> ";
570 mx[178]20:[141] 12500
579 af$(nc)[178]te$
580 [139] te$[178]"_" [176] te$[178]"" [167] nc[178]nc[171]1:[142]
590 [153]:[153]" lenorrect: <(NULL)>";
600 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n" [175] k$[179][177][199](13) [167]600
610 [139]k$[178]"n"[167]540
620 [142]
630 :
640 [153]"loadlenhange right$ndex (NULL)ame: "
650 [139]nc[178]0 [167] [141] 12200:[142]
660 [153]" right$ndex #: <_> ";
670 mx[178]3:[141]12500
685 [139] te$[178]"_" [176] te$[178]"" [167] [142]
690 k[178][197](te$):[139]k[179]1[176]k[177]nc[167]640
700 [153]:[153]" (NULL)ld lenategory: "af$(k)
710 [153]" (NULL)ew lenategory: ";
720 mx[178]20:[141] 12500
730 [153]:[153]" lenorrect: <(NULL)>";
740 [161] k$:[139] k$[178]"" [167] 740
750 [139]k$[178]"n"[167]640
755 [139] k$[179][177]"y" [175] k$[179][177][199](13) [167]740
760 af$(k)[178]te$:[142]
770 :
780 [153]"loadstr$isplay right$ndex (NULL)ames: "
790 [139] nc[178]0 [167] [141] 12200:[142]
800 j[178]0
810 [129]i[178]1[164]nc
820 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
830 [153][163]5)i$;
840 [153][163]10)af$(i)
850 j[178]j[170]1:[139]j[178]15[167][141]2750:[153]"load":j[178]0
860 [130]:[141]2750:[142]
870 :
880 [153]"load(NULL)rint right$ndex (NULL)ames: "
890 [139] nc[178]0 [167] [141] 12200:[142]
900 [141]3480
910 [151] 780,4:[143] channel #
912 [151] 782,7:[143] secondary address
914 [158] 828: [143] open file
916 [139] [194](783) [175] 1 [167] [160] 4:[141] 12300:[137] 880
918 [157] 4
920 [129]i[178]1[164]nc
930 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
940 [153][166]5)i$;" ";af$(i)
950 [130]
960 [152]4:[160]4:[142]
970 :
980 [139]nc[178]0 [167] [141] 12200:[137] 130
985 [153]"load(NULL)ain (NULL)enu: "
990 [153][163]10)"[1] (NULL)oad ascile
1000 printtab(10)"[2] [211]ave [198]ile
1010 [153][163]10)"[3] atndd (NULL)ecord
1020 printtab(10)"[4] [195]hange [210]ecord
1030 [153][163]10)"[5] str$elete (NULL)ecord
1040 printtab(10)"[6] [196]isplay [198]ile
1050 [153][163]10)"[7] (NULL)rint ascile
1060 printtab(10)"[8] # [210]ecords
1070 [153][163]10)"[9] str$isk str$irectory
1080 printtab(9)"[10] [199]o to [201]ndex [205]enu
1090 [153][163]9)"[11] chr$o to (NULL)p(NULL)ime"
1100 [153]"lenhoice: ";
1110 mx[178]2:[141] 12500
1120 k[178][197](te$):[139]k[179]1 [176] k[177]11[167] 985
1130 [139]k[178]11[167][158] (8[172]4096)[170]4
1140 [139]k[178]10[167] [142]
1150 [145]k[141]1180,1290,1420,1670,1800,1960,2230,2480,2550
1160 [137]980
1170 :
1180 [153]"load(NULL)oad ascile: "
1190 [141]2790:[139]f1[167][142]
1200 [159]15,8,15,"i0"
1210 [159]2,8,2,"0:"[170]f$[170]".tf,s,r"
1220 [141]2870:[139]f[167][142]
1230 [132]2,n
1240 [129]i[178]1[164]n:[129]j[178]1[164]na
1250 [132]2,a$(j,i)
1260 [130]:[130]
1270 [160]2:[160]15:[141]2750:[142]
1280 :
1290 [153]"load(NULL)ave ascile: "
1300 [139] n[178]0 [167] [141] 12200:[142]
1310 [141]2790:[139]f1[167][142]
1320 [159]15,8,15,"i0"
1330 [152]15,"s0:"[170]f$[170]".tf"
1340 [159]2,8,2,"0:"[170]f$[170]".tf,s,w"
1350 [141]2870:[139]f[167][142]
1360 [152]2,n
1370 [129]i[178]1[164]n:[129]j[178]1[164]na
1380 [152]2,a$(j,i)
1390 [130]:[130]
1400 [160]2:[160]15:[141]2750:[142]
1410 :
1420 n[178]n[170]1:tp[178]n
1430 p$[178]"loadatndd (NULL)ecord: ":[153]p$
1440 [153]"str$isplay right$ndex lenodes: <_> ";
1450 mx[178]1:[141] 12500
1460 [139] te$[178]"y"[167][141]780
1470 [139] te$[178]"_" [176] te$[178]"" [167] n[178]n[171]1:[142]
1480 [153]p$
1490 [153]:[153]ar$(1);:mx[178]20:[141] 12500:a$(1,tp)[178]te$
1495 m$[178]a$(1,tp):lm[178][195](m$)
1500 m$[178]a$(1,tp):lm[178][195](m$)
1510 [153]:[153]ar$(2);:mx[178]20:[141] 12500:a$(2,tp)[178]te$
1520 [153]:[153]ar$(3);:mx[178]20:[141] 12500:a$(3,tp)[178]te$
1530 [153]:[153]ar$(4);:mx[178]20:[141] 12500:a$(4,tp)[178]te$
1550 [153]:[153]ar$(5);:mx[178]20:[141] 12500:a$(5,tp)[178]te$
1560 [153]:[153]ar$(6);:mx[178]20:[141] 12500
1570 i[178][197](te$):[139]i[179]1[176]i[177]nc[167][153]"on onon":[137]1560
1580 i$[178][202]([196](i),2):[139]i[179]10[167]i$[178]"0"[170]i$
1590 a$(6,tp)[178]i$:[153]af$(i)
1600 [153]:[153]" lenorrect: <(NULL)>"
1605 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1605
1610 [139] te$[179][177]"y" [175] te$[179][177][199](13)[167][153]:[137]1440
1615 [139]f3[167][142]
1620 [153]:[153]" (NULL)ore: <(NULL)> ";
1625 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1625
1640 [139] te$[178]"y" [176] te$[178][199](13) [167]1420
1650 [142]
1660 :
1670 [153]"loadlenhange (NULL)ecord: "
1680 [139] n[178]0 [167] [141] 12200:[142]
1690 [153]"lenhange (NULL)ecord #: <_> ";
1700 mx[178]3:[141] 12500
1710 [139] te$[178]"_" [176] te$[178]"" [167] [142]
1720 r[178][197](te$):[139]r[179]1[176]r[177]n[167] 1670
1730 [153]:i[178]r:[141]3050
1740 [153]:[153]"right$s (NULL)his the (NULL)ecord: <(NULL)> ";
1750 [161] te$:[139] te$[179][177]"y" [175] te$[179][177]"n" [175] te$[179][177][199](13) [175] te$[179][177]"_" [167] 1750
1760 [139] te$[179][177]"y" [175] te$[179][177]"" [167]1670
1770 [153]:tp[178]r:f3[178]1:[141]1440:f3[178]0
1771 [139] te$[178]"_" [176] te$[178]"" [167]n[178]n[170]1:[153]:[153]"(NULL)o lenhange (NULL)ade":[141]2750:[142]
1780 [153]:[153]"(NULL)ecord lenhanged":[141]2750:[142]
1790 :
1800 [153]"loadstr$elete (NULL)ecord: "
1810 [139] n[178]0 [167] [141] 12200:[142]
1820 [153]"str$elete (NULL)ecord #: <_> ";
1830 mx[178]3:[141] 12500
1840 [139] te$[178]"_" [176] te$[178]"" [167][142]
1850 r[178][197](te$):[139]r[179]1[176]r[177]n[167][153]:[137]1810
1860 [153]:i[178]r:[141]3050
1870 [153]:[153]"right$s (NULL)his the (NULL)ecord: <(NULL)> ";
1880 mx[178]1:[141] 12500
1890 [139] te$[179][177]"y" [175] te$[179][177]"" [167]1800
1900 [129]i[178]r[164]n:[129]j[178]1[164]na
1910 a$(j,i)[178]a$(j,i[170]1)
1920 [130]:[130]:n[178]n[171]1
19